home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / med300.zip / MEDUMMY.CLA < prev    next >
Text File  |  1994-02-22  |  2KB  |  31 lines
  1.  
  2. !▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  3. !█                                     █
  4. !█ MEDUMMY.CLA                                                           █
  5. !█ Event loop processing code for Generator applications.  Insert        █
  6. !█ this code in the ME_Dummy fields 'Selected / Source' button.          █
  7. !█                                                                       █
  8. !█ Revision Number: 1                             █
  9. !█ Revision Date  : 22-Feb-94                                            █
  10. !█                                     █
  11. !█ Revision History                             █
  12. !█   1 Created                                 █
  13. !█                                     █
  14. !▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  15.  
  16.   ACCEPT                                         ! Process dummy field
  17.   IF KEYCODE()                                   ! If not in non-stop mode
  18.     ALERT                                        !   Clear alerts
  19.     ALERT(AltA, AltZ)                            !   Alert Alt keys
  20.     ALERT(TabKey)                                !   Alert Tab key
  21.     ALERT(ShftTab)                               !   Alert Shift-Tab key
  22.     ME_Edit()                                    !   Edit the memo
  23.     ALERT                                        !   Turn off alerts
  24.     IF ~INRANGE(KEYCODE(), MouseLeft, MouseLeft2)!   If not a mouse click
  25.       IF KEYCODE() <> TabKey                     !     If not Tab key
  26.         PRESS(KEYCODE())                         !       Stuff completion key
  27.     . .                                          !   Endif
  28.     CYCLE                                        !   Go to top of event loop
  29.   .                                              ! Endif
  30.  
  31.